home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / STRINGS / PACKAGE6 / INITSTR.DOC < prev    next >
Text File  |  1990-07-25  |  1KB  |  36 lines
  1. ----------------------------------------------------------------------------
  2. InitializeString
  3. ----------------------------------------------------------------------------
  4.  
  5. declaration:       procedure InitializeString (var AString:
  6.                                                      TypeString);
  7.  
  8. purpose:           Initializes AString and fills it with blank spaces.
  9.  
  10. preconditions:     none
  11.  
  12. postconditions:    AString if filled with blank spaces.
  13.  
  14. special cases:     none
  15.  
  16. example:          var
  17.                     Character:
  18.                       char;
  19.                     Name:
  20.                       TypeString;
  21.  
  22.                   begin
  23.                      .
  24.                      .
  25.                      .
  26.                      write (output, 'Enter the character:  ');
  27.                      readln (input, Character);
  28.                      InitializeString (Name);
  29.                      ChangeCharacterToString (Character, Name)
  30.                      .
  31.                      .
  32.                      .
  33.                    end
  34.  
  35. ----------------------------------------------------------------------------
  36.